home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 11 / 64er_Magazin_Sonderheft_11_86-11_1986_Markt__Technik_de_Side_A.d64 / circle demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  855b  |  39 lines
  1. 10 rem     ***********************
  2. 20 rem     *    "circle demo"    *
  3. 30 rem     *   von leif kobbelt  *
  4. 40 rem     *   7500 karlsruhe 1  *
  5. 50 rem     *  graf-rhenastr. 23  *
  6. 60 rem     ***********************
  7. 70 :
  8. 80 :
  9. 100 ifa=0thena=1:load"circle.code",8,1
  10. 110 :
  11. 120 fora=828to870:readb:pokea,b:next
  12. 130 gclear=828:reverse=848:circle=49152
  13. 140 :
  14. 200 poke53265,59:poke53272,24:print"[147]"
  15. 210 sys gclear
  16. 220 :
  17. 300 x=int(rnd(42)*320)
  18. 310 y=int(rnd(42)*200)
  19. 320 r=int(rnd(42)*50)+25:r1=r*.9
  20. 330 d=int(rnd(42)*10)+3
  21. 340 sys reverse
  22. 350 sys circle,x,y,r,r1
  23. 360 sys circle,x,y,r+1,r1+1
  24. 370 sys circle,x,y,r-d-1,r1-d-1
  25. 380 sys circle,x,y,r-d-2,r1-d-2
  26. 390 sys reverse
  27. 400 fora=1tod
  28. 410 sys circle,x,y,r-a,r1-a
  29. 420 nexta
  30. 430 goto300
  31. 440 :
  32. 450 :
  33. 1000 data 169,0,168,162,32,132,20,134
  34. 1010 data 21,145,20,200,208,251,232,224
  35. 1020 data 64,208,244,96,160,0,162,32
  36. 1030 data 132,20,134,21,177,20,73,255
  37. 1040 data 145,20,200,208,247,232,224,64
  38. 1050 data 208,240,96
  39.